home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 2002 November / SGI Freeware 2002 November - Disc 3.iso / dist / fw_mc.idb / usr / freeware / lib32 / mc / extfs / uar.z / uar
Text File  |  2002-07-08  |  1KB  |  49 lines
  1. #!/bin/sh
  2. #
  3. # Written by    Alex Kuchma <ask@bcs.zp.ua>
  4. #               Alex Tkachenko <alex@bcs.zp.ua>
  5. # Updated by    Vitezslav Samel <xsamel00@dcse.fee.vutbr.cz>
  6. #
  7. # (C) 1997, 1998 The Free Software Foundation.
  8. #
  9. #
  10. XAR=ar
  11. XUNAR=ar
  12. XARINFO="ar tv"
  13. AWK=awk
  14.  
  15. mcarfs_list ()
  16. {
  17.         YEAR=`date '+%Y'`
  18.         $XARINFO $1 | nawk -v year=$YEAR '
  19.         {
  20.                 date = $(NF-1)
  21.                 if(date == year) {   
  22.                         date = $(NF-2);
  23.                 }
  24.                 perms = substr($1, 1, 9);
  25.                 split($2, id, "/");
  26.                 if(NF > 8) {
  27.                         id[2] = $3;
  28.                 }
  29.                 printf("-%9s 1 %8d %8d %8d %s %s %s %s\n", perms, id[1], id[2], $(NF-5), $(NF-4), $(NF-3), date, $(NF));
  30.         }' 2>/dev/null
  31. }
  32.  
  33. mcarfs_copyout ()
  34. {
  35.     $XUNAR p $1 $2 > $3
  36. }
  37.  
  38. # override any locale for dates
  39. LC_ALL=C
  40. export LC_ALL
  41.  
  42. umask 077
  43. case "$1" in
  44.   list) mcarfs_list $2; exit 0;;
  45.   copyout) shift; mcarfs_copyout $*; exit 0;;
  46.   copyin) shift; mcarfs_copyin $*; exit 0;;
  47. esac
  48. exit 1
  49.